home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / New Age / Yarrow / card_3071.txt < prev    next >
Text File  |  1989-01-09  |  28KB  |  702 lines

  1. -- card: 3071 from stack: in
  2. -- bmap block id: 3307
  3. -- flags: 0000
  4. -- background id: 2776
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9. end openCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: A003
  15. -- rect: left=0 top=143 right=165 bottom=189
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Cast a Hexagram
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   global ncard
  27.   put 6 into linePos
  28.   click at loc of card button "Meditate / Clear"
  29.   put 0 into ix1
  30.   put 0 into ix2
  31.   put 0 into in1
  32.   put 0 into in2
  33.   repeat with i = 1 to 6
  34.     put 50 into hand
  35.     subtract 1 from hand
  36.     if i = 1 then
  37.       put "Stalk Bundle: " && hand into line 1 of card field Out
  38.     else
  39.       put ";" & hand after line 1 of card field Out
  40.     end if
  41.     repeat
  42.       get the random of hand
  43.       if it > 4 and it < (hand - 4) then exit repeat
  44.     end repeat
  45.     put it into left
  46.     if i = 1 then
  47.       put "Left Bundle:  " && left into line 2 of card field Out
  48.     else
  49.       put ";" & left after line 2 of card field Out
  50.     end if
  51.     put (hand - left) into right
  52.     subtract 1 from right
  53.     if i = 1 then
  54.       put "Right Bundle: " && right into line 3 of card field Out
  55.     else
  56.       put ";" & right after line 3 of card field Out
  57.     end if
  58.     put 1 into little
  59.     if i = 1 then
  60.       put "Little Finger:" && little into line 4 of card field Out
  61.     else
  62.       put "; " & little after line 4 of card field Out
  63.     end if
  64.     put (right - (4 * trunc(right / 4))) into ring
  65.     if ring = 0 then put 4 into ring
  66.     if i = 1 then
  67.       put "Ring Finger:  " && ring into line 5 of card field Out
  68.     else
  69.       put "; " & ring after line 5 of card field Out
  70.     end if
  71.     put (left - (4 * trunc(left / 4))) into center
  72.     if center = 0 then put 4 into center
  73.     if i = 1 then
  74.       put "Middle Finger:" && center into line 6 of card field Out
  75.     else
  76.       put "; " & center after line 6 of card field Out
  77.     end if
  78.     put little + ring + center into pile
  79.     if i = 1 then
  80.       put "Reduced Pile: " && pile into line 7 of card field Out
  81.     else
  82.       put "; " & pile after line 7 of card field Out
  83.     end if
  84.     if pile = 9 then put 2 into sum
  85.     if pile = 5 then put 3 into sum
  86.     put hand - pile into hand
  87.     put "," & hand after line 1 of card field Out
  88.     repeat
  89.       get the random of hand
  90.       if it > 4 and it < (hand - 4) then exit repeat
  91.     end repeat
  92.     put it into left
  93.     put "," & left after line 2 of card field Out
  94.     put (hand - left) into right
  95.     subtract 1 from right
  96.     put "," & right after line 3 of card field Out
  97.     put 1 into little
  98.     put ", " & little after line 4 of card field Out
  99.     put (right - (4 * trunc(right / 4))) into ring
  100.     if ring = 0 then put 4 into ring
  101.     put ", " & ring after line 5 of card field Out
  102.     put (left - (4 * trunc(left / 4))) into center
  103.     if center = 0 then put 4 into center
  104.     put ", " & center after line 6 of card field Out
  105.     put little + ring + center into pile
  106.     put ", " & pile after line 7 of card field Out
  107.     if pile = 8 then add 2 to sum
  108.     if pile = 4 then add 3 to sum
  109.     put hand - pile into hand
  110.     put "," & hand after line 1 of card field Out
  111.     repeat
  112.       get the random of hand
  113.       if it > 4 and it < (hand - 4) then exit repeat
  114.     end repeat
  115.     put it into left
  116.     put "," & left after line 2 of card field Out
  117.     put (hand - left) into right
  118.     subtract 1 from right
  119.     put "," & right after line 3 of card field Out
  120.     put 1 into little
  121.     put ", " & little after line 4 of card field Out
  122.     put (right - (4 * trunc(right / 4))) into ring
  123.     if ring = 0 then put 4 into ring
  124.     put ", " & ring after line 5 of card field Out
  125.     put (left - (4 * trunc(left / 4))) into center
  126.     if center = 0 then put 4 into center
  127.     put ", " & center after line 6 of card field Out
  128.     put little + ring + center into pile
  129.     put ", " & pile after line 7 of card field Out
  130.     if pile = 8 then add 2 to sum
  131.     if pile = 4 then add 3 to sum
  132.     if i = 1 then
  133.       put "The Lines:    " && sum into line 8 of card field Out
  134.     else
  135.       put "; " & sum after line 8 of card field Out
  136.     end if
  137.     if sum = 6 then put "--- X ---" into line linePos of card field Lines
  138.     if sum = 7 then put "---------" into line linePos of card field Lines
  139.     if sum = 8 then put "---   ---" into line linePos of card field Lines
  140.     if sum = 9 then put "----0----" into line linePos of card field Lines
  141.     if i ‚â• 1 and i ‚â§3 then put 2 * ix1 into ix1
  142.     if i ‚â• 2 and i ‚â§4 then put 2 * in1 into in1
  143.     if i ‚â• 3 and i ‚â§5 then put 2 * in2 into in2
  144.     if i ‚â• 4 and i ‚â§6 then put 2 * ix2 into ix2
  145.     if sum = 6 or sum = 8 then
  146.       if i ‚â• 1 and i ‚â§3 then add 1 to ix1
  147.       if i ‚â• 2 and i ‚â§4 then add 1 to in1
  148.       if i ‚â• 3 and i ‚â§5 then add 1 to in2
  149.       if i ‚â• 4 and i ‚â§6 then add 1 to ix2
  150.     end if
  151.     subtract 1 from linePos
  152.   end repeat
  153.   put item 2 of line ix1 + 1 of card field Tri into jx1
  154.   put item 2 of line ix2 + 1 of card field Tri into jx2
  155.   get item 3 of line jx2 of card field Tri
  156.   put "Above: " & it into lin1
  157.   get item 5 of line jx2 of card field Tri
  158.   put " - The " & it after lin1
  159.   get item 3 of line jx1 of card field Tri
  160.   put "Below: " & it into lin2
  161.   get item 5 of line jx1 of card field Tri
  162.   put " - The " & it after lin2
  163.   get item 4 of line jx2 of card field Tri
  164.   put lin1 & ", " & it into line 1 of card field Indx
  165.   get item 4 of line jx1 of card field Tri
  166.   put lin2 & ", " & it into line 2 of card field Indx
  167.   put (8 * (jx1 - 1)) + jx2 into jx
  168.   get item 2 of line jx of card field "Interp"
  169.   put "Hexagram #" & it into lin3
  170.   put it + 1 into ncard
  171.   put lin3 & " - " & item 3 of line it of card field "Interp" into line 3 of card field "Indx"
  172.   put item 4 of line it of card field "Interp" into line 4 of card field "Indx"
  173.   put item 2 of line in1 + 1 of card field Tri into jn1
  174.   put item 2 of line in2 + 1 of card field Tri into jn2
  175.   get item 3 of line jn2 of card field Tri
  176.   put "N-1: " & it into lin5
  177.   get item 3 of line jn1 of card field Tri
  178.   put "N-2: " & it into lin6
  179.   get item 5 of line jn2 of card field Tri
  180.   put " - The " & it after lin5
  181.   get item 5 of line jn1 of card field Tri
  182.   put " - The " & it after lin6
  183.   get item 6 of line jn2 of card field Tri
  184.   put lin5 & ", " & it into line 5 of card field Indx
  185.   get item 6 of line jn1 of card field Tri
  186.   put lin6 & ", " & it into line 6 of card field Indx
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 2 (field)
  192. -- low flags: 01
  193. -- high flags: 2002
  194. -- rect: left=43 top=35 right=137 bottom=475
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 4
  199. -- text size: 9
  200. -- style flags: 0
  201. -- line height: 12
  202. -- part name: Out
  203.  
  204.  
  205. -- part 3 (field)
  206. -- low flags: 01
  207. -- high flags: 2002
  208. -- rect: left=2 top=170 right=318 bottom=151
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 4
  213. -- text size: 24
  214. -- style flags: 256
  215. -- line height: 24
  216. -- part name: Lines
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   global ncard
  220.   go to card ncard
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 4 (button)
  226. -- low flags: 00
  227. -- high flags: A003
  228. -- rect: left=330 top=143 right=165 bottom=512
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Meditate / Clear
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global linePos
  240.   put 6 into linePos
  241.   put empty into card field Lines
  242.   put empty into card field Out
  243.   put empty into card field Indx
  244. end mouseUp
  245.  
  246. on mouseWithin
  247.   get the random of 1000
  248.   set cursor to 2
  249. end mouseWithin
  250.  
  251.  
  252.  
  253. -- part 6 (field)
  254. -- low flags: 01
  255. -- high flags: 0002
  256. -- rect: left=157 top=172 right=317 bottom=512
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 209
  261. -- text size: 18
  262. -- style flags: 0
  263. -- line height: 24
  264. -- part name: Indx
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   global ncard
  268.   go to card ncard
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 8 (button)
  274. -- low flags: 00
  275. -- high flags: 2000
  276. -- rect: left=482 top=46 right=67 bottom=506
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 20098 / 20098
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Home
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   click at loc of card button "Meditate / Clear"
  288.   go home
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 15 (button)
  294. -- low flags: 00
  295. -- high flags: 2000
  296. -- rect: left=7 top=40 right=74 bottom=37
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 2507 / 2507
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: Help
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   set scroll of card field id 16 to 0
  308.   show card field id 16
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 17 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=7 top=104 right=121 bottom=36
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 1004 / 1004
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: Commercial
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   show card field id 18
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 21 (button)
  333. -- low flags: 00
  334. -- high flags: 2000
  335. -- rect: left=483 top=101 right=129 bottom=506
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 1006 / 1006
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Quit
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   click at loc of card button "Meditate / Clear"
  347.   doMenu "Quit HyperCard"
  348. end mouseUp
  349.  
  350.  
  351. -- part 18 (field)
  352. -- low flags: 81
  353. -- high flags: 2004
  354. -- rect: left=2 top=31 right=341 bottom=512
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 0
  358. -- font id: 2
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: Commercial1
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   show card field "Commercial2"
  366.   hide card field "Commercial1"
  367. end mouseUp
  368.  
  369.  
  370. -- part 19 (field)
  371. -- low flags: 81
  372. -- high flags: 2004
  373. -- rect: left=2 top=31 right=341 bottom=512
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 0
  377. -- font id: 2
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: Commercial2
  382. ----- HyperTalk script -----
  383. on mouseUp
  384.   show card field "Commercial3"
  385.   hide card field "Commercial2"
  386. end mouseUp
  387.  
  388.  
  389. -- part 20 (field)
  390. -- low flags: 81
  391. -- high flags: 2004
  392. -- rect: left=2 top=31 right=341 bottom=512
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 0
  396. -- font id: 2
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Commercial3
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   show card field "Commercial4"
  404.   hide card field "Commercial3"
  405. end mouseUp
  406.  
  407.  
  408. -- part 22 (button)
  409. -- low flags: 00
  410. -- high flags: 2000
  411. -- rect: left=407 top=0 right=37 bottom=434
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 0 / 0
  414. -- text alignment: 1
  415. -- font id: 0
  416. -- text size: 12
  417. -- style flags: 0
  418. -- line height: 16
  419. -- part name: Show all
  420. ----- HyperTalk script -----
  421. on mouseUp
  422.   show all cards
  423. end mouseUp
  424.  
  425.  
  426.  
  427. -- part 16 (field)
  428. -- low flags: 81
  429. -- high flags: 2007
  430. -- rect: left=0 top=0 right=342 bottom=512
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 0
  434. -- font id: 2
  435. -- text size: 10
  436. -- style flags: 0
  437. -- line height: 13
  438. -- part name: HelpScreen
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   set the scroll of card field HelpScreen to 0
  442.   hide card field HelpScreen
  443. end mouseUp
  444.  
  445.  
  446. -- part 7 (field)
  447. -- low flags: 80
  448. -- high flags: 4007
  449. -- rect: left=13 top=28 right=331 bottom=498
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 0 / 0
  452. -- text alignment: 0
  453. -- font id: 4
  454. -- text size: 9
  455. -- style flags: 0
  456. -- line height: 12
  457. -- part name: Interp
  458.  
  459.  
  460. -- part 24 (field)
  461. -- low flags: 80
  462. -- high flags: 4002
  463. -- rect: left=0 top=28 right=126 bottom=308
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 0 / 0
  466. -- text alignment: 0
  467. -- font id: 4
  468. -- text size: 9
  469. -- style flags: 0
  470. -- line height: 12
  471. -- part name: Tri
  472.  
  473.  
  474. -- part 26 (field)
  475. -- low flags: 81
  476. -- high flags: 2004
  477. -- rect: left=2 top=31 right=341 bottom=512
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 0
  481. -- font id: 2
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: Commercial4
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   show card field "Commercial5"
  489.   hide card field "Commercial4"
  490. end mouseUp
  491.  
  492.  
  493. -- part 27 (field)
  494. -- low flags: 81
  495. -- high flags: 2004
  496. -- rect: left=2 top=31 right=341 bottom=512
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 0
  500. -- font id: 2
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: Commercial5
  505. ----- HyperTalk script -----
  506. on mouseUp
  507.   hide card field "Commercial5"
  508. end mouseUp
  509.  
  510.  
  511. -- part contents for card part 7
  512. ----- text -----
  513. 1,1,Ch'ien,The Creative
  514. 2,34,K'un,The Receptive
  515. 3,5,Chun,Difficulty at the Beginning
  516. 4,26,M√™ng,Youthful Folly
  517. 5,11,Hs√º,Waiting (Nourishment)
  518. 6,9,Sung,Conflict
  519. 7,14,Shih,The Army
  520. 8,43,Pi,Holding Together [Union]
  521. 9,25,Hsiao Ch'u,The Taming Power of the Small
  522. 10,51,L√º,Treading [Conduct]
  523. 11,3,T'ai,Peace
  524. 12,27,P'i,Standstill [Stagnation]
  525. 13,24,T'ung J√™n,Fellowship with Men
  526. 14,42,Ta Yu,Posession in Great Measure
  527. 15,21,Ch'ien,Modesty
  528. 16,17,Yü,Enthusiasm
  529. 17,6,Sui,Following
  530. 18,40,Ku,Work on What Has Been Spoiled [Decay]
  531. 19,29,Lin,Approach
  532. 20,4,Kuan,Contemplation (View)
  533. 21,7,Shih Ho,Biting Through
  534. 22,59,Pi,Grace
  535. 23,64,Po,Splitting Apart
  536. 24,47,Fu,Return (The Turning Point)
  537. 25,33,Wu Wang,Innocence (The Unexpected)
  538. 26,62,Ta Ch'u,The Taming Power of the Great
  539. 27,39,I,The Corners of the Mouth (Providing Nourishment)
  540. 28,52,Ta Kuo,Preponderance of the Great
  541. 29,15,K'an,The Abysmal (Water)
  542. 30,53,Li, Fire
  543. 31,56,Hsien,Influence (Wooing)
  544. 32,31,Hêng,Duration
  545. 33,12,Tun,Retreat
  546. 34,16,Ta Chuang,The Power of the Great
  547. 35,8,Chin,Progress
  548. 36,23,Ming I,Darkening of the Light
  549. 37,2,Chia J√™n,The Family [The Clan]
  550. 38,20,K'uei,Opposition
  551. 39,35,Chien,Obstruction
  552. 40,45,Hsieh,Deliverance
  553. 41,44,Sun,Decrease
  554. 42,32,I,Increase
  555. 43,48,Kuai,Break-through (Resoluteness)
  556. 44,18,Kou,Coming to Meet
  557. 45,46,Ts'ui,Gathering Together [Massing]
  558. 46,57,Sh√™ng,Pushing Upward
  559. 47,50,K'un,Oppression (Exhaustion)
  560. 48,28,Ching,The Well
  561. 49,13,Ko,Revolution (Molting)
  562. 50,55,Ting,The Cauldron
  563. 51,63,Ch√™n,The Arousing (Shock;Thunder)
  564. 52,22,K√™n, Mountain
  565. 53,36,Chien,Development (Gradual Progress)
  566. 54,37,Kuei Mei,The Marrying Maiden
  567. 55,30,F√™ng,Abundance [Fullness]
  568. 56,49,L√º,The Wanderer
  569. 57,10,Sun,The Gentle (The Penetrating;Wind)
  570. 58,54,Tui, Lake
  571. 59,60,Huan,Dispersion [Dissolution]
  572. 60,41,Chieh,Limitation
  573. 61,19,Chung Fu,Inner Truth
  574. 62,61,Hsiao Kuo,Preponderance of the Small
  575. 63,38,Chi Chi,After Completion
  576. 64,58,Wei Chi,Before Completion
  577.  
  578. -- part contents for card part 16
  579. ----- text -----
  580.                                                  About the "I Ching" Stack
  581.  
  582.                                                Developed by John G. Cramer,
  583.                                                        author of TWISTOR.
  584.                                             (See the "Message" button.)
  585.  
  586.  
  587.      This stack, copyright 1988 by J. G. Cramer, is semi-freeware.  It may be freely used, duplicated, and passed on, but may NOT be modified, except to correct bugs and to include minor improvements.  In particular, the commerical "message" about my book TWISTOR must be included in all legal copies of this stack.
  588.  
  589.  
  590. WARNING:  This stack, in its pristine state, occupies 58K.  However, it will grow to 88K when used.  Be sure enough disk space is available to accomodate this increase in size.
  591.  
  592.  
  593. ‚Ä¢  Brief instructions:
  594.  
  595. (1)  Put the curson over the Meditate/Clear button until you feel ready to cast a hexagram.  The cursor in this position will be observed to vibrate, indicating that a continuous randomization is in progress.  Click on the Meditate/Clear button if you wish to clear a previous hexagram reading.
  596.  
  597. (2)  Click on the Cast a Hexagram button.  The stack will simulate repeated yarrow stalk manipulations and generate the six lines of the hexagram.  The hexagram is identified by number and name, and the upper, lower and two nuclear trigrams of the hexagram are identified and interpreted in the Interpretation window. 
  598.  
  599. (3)  At this point you should consult a translation of the I Ching for a full interpretation of the hexagram, including the signifigance of the moving lines.  For a quick preliminary interpretation, you may click on the Hexagram or Interpretation windows.
  600.  
  601.  
  602. ‚Ä¢  Discussion:
  603.  
  604.          The I Ching is an ancient Taoist book of oracular wisdom.  It is unique and remarkable.  The great psychologist Carl Jung was so taken with the surprising predictive wisdom of the Oracle that he formulated the concept of synchronicity in an attempt to explain, in a western context, how random manipulations of yarrow stalks leading to readings from a 3000 year old book could yield advice and counsel that seems so appropriate to 20th century people and their problems.  I first encountered the I Ching as a result of reading Philip K. Dick's The Man in the High Castle (it is essentially a character in the book), and have been facinated by it ever since.
  605.  
  606.        Let me make one thing perfectly clear.  I do not believe in prophecy or fortune telling, or even in Jung's synchronicity, whether done with the use of the I Ching or otherwise.  My view is that the human brain is in part a magnificent pattern-recognition engine.  Given the opportunity, it will "see" many patterns that are interior to the mind rather than a part of the outside world.  The I Ching provides a rich and varied matrix for such interior pattern recognition, and is thus actually a form of introspection, the recognition of things within ourselves which might be difficult, without the aid of the Oracle, to see.  Thus the introspective aspects of the I Ching are far more important than the purely mechanical aspects that are provided by this stack.
  607.  
  608.         I wrote this stack as an exercise in HyperTalk programming, and also as a medium for publicising my first science fiction novel, TWISTOR which is to be published in hardcover in March, 1989 by William Morrow & Co.  (See the "Message" button for more details.)  The I Ching stack has two functions: first it casts a hexagram; second it interprets it.  The casting is authentic.  The interpretation provided in this stack is minimal, does not address the interpretation of changing lines, and should be used only as a preliminary first step in a serious interpretation.  The use of a printed copy of the I Ching is strongly recommended for the latter.  I prefer the hardcover Wilhelm/Baynes translation printed by Princeton University Press, although several less elegant translations are available in inexpensive paperback editions.
  609.  
  610.        There are two traditional ways of casting a hexagram for the I Ching, the "quick-and-dirty" three-coins method which is in the widest use because of its simplicity, and the more ancient and involved yarrow-stalk method which requires the repeated division and counting of a starting bundle of 50 yarrow stalks (think of the yarrow stalks as a bundle of long match sticks).  At the end of each pass there will be 1 to 4 yarrow stalks held between the little and ring fingers, the ring and middle fingers, and the middle and index fingers.  These are combined in a pile.  This process is repeated with a reduced number of stalks until three such piles are produced.  These are then combined to determine a line of the hexagram,  .  The two methods yield different results, in that the relative probabilities of the four possible lines are somewhat different in the two techniques.    This stack employs the venerable yarrow-stalk method, substituting pseudo-random pure numbers and HyperTalk operations for the actual manipulation of the yarrow stalks.  The numbers appearing in the Yarrow Stalk Manipulation window during the division indicate the stages in the process and the lines which are generated as a result.
  611.  
  612.        As the six lines are generated, the hexagram they signify is constructed from the bottom up and is shown in the Hexagram window.  The lines generated are of four forms which are denoted by the digits 6, 7, 8, and 9 appearing in the upper window:
  613.     ‚Ä¢    The 6 is a broken "moving" line of the form: ---  x ---;
  614.     ‚Ä¢    The 7 is a solid "fixed" line of the form:           ---------;
  615.     ‚Ä¢    The 8 is a broken "fixed" line of the form:      ---     ---;
  616.     ‚Ä¢    The 9 is a solid "moving" line of the form:      ----o----. 
  617.  
  618.        For the principal interpretation of the hexagram, the two broken lines  ---    ---
  619. and ---  x ---  (6 and 8) are considered equivalent, as are the two solid lines ---------
  620. and ----o---- (7 and 9).   However, an additional significance is attached to each moving line in the hexagram, which changes to its opposite.  A simple interpretation of each of the 64 hexagrams is provided in the stack, and may be consulted by clicking  on the Hexagram or Interpretation windows.  For a full interpretation including the significance of the moving lines, the user must consult a printed copy of the I Ching.
  621.  
  622.        Each hexagram may be analyzed as an upper trigram  (positions 4, 5, 6) and a lower trigram (positions 1,2,3), as well as two "nuclear" trigrams at (3,4,5) and (2,3,4).  There are eight possible trigrams, and each has its own significance.  These are given in the Interpretation window.
  623.  
  624.  
  625.  
  626. -- part contents for card part 18
  627. ----- text -----
  628.                  AND NOW  ...   A WORD FROM THE STACK DEVELOPER
  629.                            John G. Cramer, author of TWISTOR
  630.  
  631.      Hello.  I'm  John Cramer.   I wrote this stack, and I'm circulating it as semi-freeware.  It's a nice stack, as I'm sure you'll agree, but, frankly, it's a medium for getting your attention long enough to tell you about my first novel, TWISTOR, which is being published in hardcover in March of 1989 by William Morrow & Co., Inc.   New writers are advised to "write about what you know."  Well, I know physics.  I'm  a Professor of Physics at the University of Washington in Seattle, where I teach and do research.  I also write a bi-monthly science column, "The Alternate View", for ANALOG magazine.
  632.      TWISTOR is set at my university and describes the process of scientific discovery -- its difficulty, its excitement, its importance, its impact.  It's about Vickie, a graduate student, and David, a postdoc, working together on what seems to be fairly standard physics research until they discover an unexpected new phenomenon, the Twistor Effect.  We follow the Twistor Effect from its accidental discovery through to full understanding of its implications, which takes David right out of this universe and into another one.
  633.                                          (click for more)
  634.  
  635.  
  636. -- part contents for card part 19
  637. ----- text -----
  638.      I wrote TWISTOR because it's the kind of hard science fiction story I enjoy reading, the kind I always search for in the SF sections of bookstores and libraries.  It's perhaps obvious that I should like what I write .  However, some of the foremost writers of the science fiction field have recently read TWISTOR.  You may be interested in what they have to say about it:
  639.  
  640.  
  641.      "Finally, the most exciting novel about the cutting  edge of physics since TIMESCAPE.  TWISTOR takes you into the lab and through the world of far-out theory, all in a swooping story of adventure."
  642.                                                                               -- David Brin
  643.  
  644.  
  645.      "A fine hard-science fiction thriller, very enjoyable.  TWISTOR is an auspicious debut for Dr. John Cramer."
  646.                                                                               -- Greg Bear
  647.  
  648.  
  649.                                         (click for more)
  650.  
  651.  
  652. -- part contents for card part 20
  653. ----- text -----
  654.      "TWISTOR is a rare blend of high imagination and fun by a writer who understands how research really works, both on the scientific and the human levels.  It made me feel as if I were back in the lab myself -- and glad to be there."
  655.                                                                               -- Stanley Schmidt
  656.  
  657.  
  658.      "John Cramer's TWISTOR is a wonderful romp through the several universes of real science, from the thin abstraction of particle theory to the grubby, greasy, problem-plagued experimental laboratory, and on to the intricacies of departmental politics and the pitfalls of institutional funding.  Before Cramer has finished telling his ingenious tale, TWISTOR has taken us right out of this world into a plausible universe next door.  The ideas are as startlingly original as anything in the work of Robert Forward or James P. Hogan, with the added attraction of likeable flesh and blood characters and an order of magnitude better storytelling."
  659.                                                                               -- Paul Preuss
  660.  
  661.                                          (click for more)
  662.  
  663.  
  664. -- part contents for card part 24
  665. ----- text -----
  666. 1,1,Ch'ien,Heaven,Creative,strong
  667. 2,8,Ch√™n,Thunder,Arousing,inciting movement
  668. 3,7,K'an,Water,Abysmal,dangerous
  669. 4,2,Kên,Mountain,Quiet,resting
  670. 5,6,K'un,Earth,Receptive,devoted/yielding
  671. 6,3,Sun,Wind/Wood,Gentle,penetrating
  672. 7,4,Li,Fire,Clinging,life-giving
  673. 8,5,Tui,Lake,Joyous,joyful
  674.  
  675. -- part contents for card part 26
  676. ----- text -----
  677.      "TWISTOR tells an exciting story that employs concepts even more exciting.  Authors who not only know science but practice it are all too rare.  John Cramer's distinguished career as a physicist enables him to give this novel a ring of authenticity, not only scientific, but human."
  678.                                                                               -- Poul Anderson
  679.  
  680.      "John Cramer's first novel has fascinating extrapolation, strong characters, and accelerating suspense.  Once you've read TWISTOR, Cramer will be on your Must-Read list."
  681.                                                                               -- F. M. Busby
  682.  
  683.      "John Cramer's first science fiction novel has two great things going for it.  His scientific background includes degrees in physics, and he has been teaching the subject at university level.  And somehow he also learned to intertwine his far-reaching knowledge with a wonderful, exciting story.  TWISTOR may well be the best SF novel of the year."
  684.                                                                               -- A. E. van Vogt
  685.  
  686.                                          (click for more)
  687.  
  688.  
  689. -- part contents for card part 27
  690. ----- text -----
  691.      "TWISTOR marks the arrival of a major new science fiction talent.  John Cramer knows science, and people.  He possesses to a phenomenal degree the wit, ingenuity, and soaring imagination all of us hope for; and they make TWISTOR a book no intelligent reader should miss."
  692.                                                                               -- Gene Wolfe
  693.  
  694.      "True hard science fiction -- deftly done, with plenty of fine surprises."
  695.                                                                               -- Gregory Benford
  696.  
  697.         But you don't have to take the word of these distinguished authors either.  In March, 1989, TWISTOR will be available in hardcover in better bookstores.  Pick up a copy and see for yourself.
  698.         And here's some advice from John Cramer, the book collector.  Because TWISTOR is a first novel, its press run will be fairly small.  First edition/printings promise to soon become rare collector's items.  So act soon, while copies are still available.
  699.                                                                              John G. Cramer
  700.                                                                                  12/15/88
  701.                                     (click to return to stack)
  702.